/*-------------------<-- Start of Description -->--------------------\ | To add permanent format library to sasauto library; | |-----------------------------------------| |--------------------------------------------------------------------| |-------------------------| | Arguments Required: | | op - sasauto library; | | addn - the library you want to add; | | at - you want to put the added library in front of sasauto, | | or after sasauto, so that SAS will search the added | | library first; | |---------------------------| |--------------------------------------------------------------------| |---------------------------------| | Example: | | option %_addoptn( sasautos, mymacs ) | | %_addoptn( fmtsearch, oldbits, at=end ) ; | | Usage: %_addoptn( op, addn, at=front ); | \----------------------------------*/ %macro _addoptn( op, addn, at=front ); /*--------------------------------------------\ | Copy Right: Duo Zhou | | Created: 4-19-2002 5:12pm; | | Purpose: add library to SASAUTO; | \--------------------------------------------*/ %local mainpart rebuild ; %let mainpart = %sysfunc( compress( %sysfunc( getoption( &op ) ), () )) ; /* compress to remove the (parenthesis) */ %if &at= front %then %let rebuild = &addn &mainpart ; %else %let rebuild = &mainpart &addn ; &op = ( &rebuild ) %mend _addoptn;